home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / business / mark.zip / PROGRAML.EXE (.txt) < prev    next >
Turbo Basic Chain module  |  1992-06-01  |  22KB  |  7 lines

  1. 8 FOR T% =
  2. p=zb@{
  3. QHU@ffffffM@(
  4. 33333G
  5.                                                                          00:00:00:                          WAIT FOR THE PRINTER                 ... PLEASE WAIT..DISK DRIVE OPERATING ...                                                         WAITING FOR YOU TO TYPE A NUMBER  E    EXIT OUT OF THE PROGRAM       H    DATES OF  HISTORIC LOWS       7    ANY OTHER  SUPPORT LINE       6    NON-DJI  82-84 TO TODAY       5       --- MAIN MENU ---          4    NON-DJI  74-82 TO TODAY       3    DJI FROM 82-84 TO TODAY       2    DJI FROM 74-82 TO TODAY       1    DJI FROM 32-82 TO TODAY      TYPE  THE SUPPORT LEVELS MENU         1990    10/11     WILL   2772.31        1990    10/11     NYSE    162.20        1990    10/11      S&P    295.46        1990    10/11      DJI   2365.10        1987    12/04     WILL   2188.10        1987    12/04     NYSE    125.91        1987    12/04      S&P    223.92        1987    12/04      DJI   1766.74        1984    07/24     WILL   1529.00        1984    07/24     NYSE     85.13        1984    07/24      S&P    147.82        1984    07/24      DJI   1086.90        1982    08/12     WILL   1062.00        1982    08/12     NYSE     58.80        1982    08/12      S&P    102.42        1982    08/12      DJI    776.90        1974    10/03      S&P     62.28        1974    12/06      DJI    577.60        1932    07/25      DJI     41.20        YEAR   MO/DAY     INDEX     LOW                               NO DATA ON WILL--1974 LOW                          NO DATA ON WILL--1932 LOW741003                          NO DATA ON S&P---1932 LOW                          NO DATA ON NYSE--1974 LOW                          NO DATA ON NYSE--1932 LOWIOSUM-SUPT                           WAIT SAVING TO SUMMARYTODAY POINT IS AT   RESISTANCE                      5. TODAY'S DATE ------- IS                        4. DATE SECONDARY  HIGH IS                        3. THE SECONDARY   HIGH IS                           TO THE PRESENT ----- IS                           RESISTANCE LINE FROM                           2. DATE OF HIGHEST HIGH IS                        1. THE --- HIGHEST HIGH IS               PLEASE MAKE SURE THAT YOUR PRINTER IS ON AND HAS PAPER                DO YOU WANT TO PRINT RESULTS ON YOUR PRINTER? TODAY      ####  RESISTANCE LINE IS AT                         5. TODAY'S DATE ------- IS                          4. DATE SECONDARY  HIGH IS                          3. THE SECONDARY   HIGH IS                          2. DATE OF HIGHEST HIGH IS                          1. THE --- HIGHEST HIGH IS                             A LONG  RESISTANCE LINE                     ENTER THE DATE OF THIS LOWER HIGH      ENTER THE NEXT HIGHEST HIGH OF MARKET INDEX SINCE THE HIGHEST HIGH                    ENTER THE DATE OF THIS HIGHEST HIGH      ENTER THE HIGHEST HIGH FOR THE MARKET INDEX FOR THE PAST 10 YEARSC                        Type E for escape or C to continue                          AND WE HAVE NOT  PROVIDED ONE                         YOU WILL NEED A CHART FOR  THISR                    Type S for support  or R for resistance                           SUPPORT OR RESISTANCE LINE                            WHICH ONE WOULD YOU LIKE                           THERE... SOME WHERE                                 BE DOWN                                 IT MUST                           BY DAVE W. PEMBERTON  C 1985           SOME SUPPORT LINES                                                   871204840724741206820812320715                  DO YOU WANT TO PRINT THIS ON YOUR PRINTER                              ENTER HERE                   (NO COMMAS--NO SPACES--LIKE THIS 901230)              NEED TODAY'S DATE (YEAR FIRST-THEN MONTH AND DAY)                            CHECK SECOND TWO DATES                  SECONDARY LOW MUST HAVE OCCURED BEFORE TODAY                            CHECK FIRST TWO DATES                  SECONDARY LOW CAN NOT OCCUR BEFORE LOWEST LOWMENU.EXE                           type Y for YES or N for NO                  DO YOU WANT TO SAVE RESULTS TO THE SUMMARY FILEF                   Type E for EDITED or F for FULL                DO YOU WANT THE EDITED OR FULL VERSIONWILS&PNYS                           HIT ANY KEY TO CONTINUE                                    ENDN|                                    ENDEDY                     ARE YOU SURE THAT YOU WANT TO ENDS                          TYPE  S  TO RE-START                           WE ARE ENDING NOW            LOOKS LIKE A BAD DISK-COPY EVERYTHING TO GOOD DISK                  CHECK TO BE SURE DISK IS INSERTED OK                THIS DISK IS SEEMS TO BE WRITE PROTECTED                   THIS DISK IS FULL-NEED ANOTHER ONE                   THAT DATE ALREADY EXISTS IN A FILE                   CHECK TO BE SURE PRINTER HAS PAPER                  CHECK TO BE SURE THAT PRINTER IS ON                      OR FILE IS NOT ON THIS DISK                      YOU ENTERED WRONG FILE DATE***                  *** ERROR *** ERROR *** ERROR #EH---765432DJI1 TODAY                        IS AT            IS AT  TODAY                     IS AT  SUPPORT LINE              LONG TERM                       5.  DATE OF SUPPORT  POINT =                       4.  DATE OF SECONDARY  LOW =                       3.  THE SECONDARY LOW  WAS =                          TO THE PRESENT         =                           LONG TERM SUPPORT LINE FROM                       2.  DATE OF THE LOWEST LOW = ####.##                      1.  THE LOWEST LOW WAS  AT =19                            LONG TERM SUPPORT LINE                             ENTER TODAY'S DATE      NOTE: (871204)    DJI=1766.74  S&P=223.92  NY=125.91  WILL=2188.10      ENTER THE NEXT LOWEST LOW OF MARKET INDEX FOR THE SAME TIME PERIOD                               DATE (YYMMDD)                     ENTER THE DATE OF THIS LOWEST LOW          NOTE: (820812)   DJI=777  S&P=102.40   NY=58.80  WILL=1062       ENTER THE LOWEST LOW FOR THE MARKET INDEX FOR THE PAST FEW YEARS                              ENTER A NUMBER                            4. THE WIL INDEX                            3. THE S&P INDEX                            2. THE NYS INDEX                            1. THE DJI INDEX                         WHICH INDEX DO YOU WANT                        Type Y for yes  or N for no                        WANT TO PRINT IT ON PRINTER                             LONG TERM SUPPORT LINE
  6.           $
  7.